home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / icmax1.z / icmax1
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. IIIICCCCMMMMAAAAXXXX1111((((3333FFFF))))                                                          IIIICCCCMMMMAAAAXXXX1111((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ICMAX1 - find the index of the element whose real part has maximum
  10.      absolute value
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      INTEGER FUNCTION ICMAX1( N, CX, INCX )
  14.  
  15.          INTEGER      INCX, N
  16.  
  17.          COMPLEX      CX( * )
  18.  
  19. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  20.      ICMAX1 finds the index of the element whose real part has maximum
  21.      absolute value.
  22.  
  23.      Based on ICAMAX from Level 1 BLAS.
  24.      The change is to use the 'genuine' absolute value.
  25.  
  26.      Contributed by Nick Higham for use with CLACON.
  27.  
  28.  
  29. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  30.      N       (input) INTEGER
  31.              The number of elements in the vector CX.
  32.  
  33.      CX      (input) COMPLEX array, dimension (N)
  34.              The vector whose elements will be summed.
  35.  
  36.      INCX    (input) INTEGER
  37.              The spacing between successive values of CX.  INCX >= 1.
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.